home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / lib / obsolete / set_viewport.pro < prev    next >
Text File  |  1997-07-08  |  2KB  |  74 lines
  1. ; $Id: set_viewport.pro,v 1.2 1997/01/15 04:02:19 ali Exp $
  2. ;
  3. ; Copyright (c) 1989-1997, Research Systems, Inc.  All rights reserved.
  4. ;       Unauthorized reproduction prohibited.
  5.  
  6. pro set_viewport, xmin, xmax, ymin, ymax
  7. ;+
  8. ; NAME:
  9. ;    SET_VIEWPORT
  10. ;
  11. ; PURPOSE:
  12. ;    Emulate the Version I, VMS/IDL SET_VIEWPORT procedure.
  13. ;    Sets the default position and size of the plot data window.
  14. ;
  15. ; CATEGORY:
  16. ;    Plotting.
  17. ;
  18. ; CALLING SEQUENCE:
  19. ;    SET_VIEWPORT, Xmin, Xmax [, Ymin, Ymax]
  20. ;
  21. ; INPUTS:
  22. ;    Xmin:    Minimum X normalized coordinate of the plotting data window.
  23. ; 
  24. ;    Xmax:    Maximum X normalized coordinate of the plotting data window.
  25. ;
  26. ; OPTIONAL INPUT PARAMETERS:
  27. ;    Ymin:    Minimum Y normalized coordinate of the plotting data window.
  28. ;
  29. ;    Ymax:    Maximum Y normalized coordinate of the plotting data window.
  30. ;
  31. ; KEYWORD PARAMETERS:
  32. ;    None.
  33. ;
  34. ; OUTPUTS:
  35. ;    No explicit outputs.
  36. ;
  37. ; COMMON BLOCKS:
  38. ;    None.
  39. ;
  40. ; SIDE EFFECTS:
  41. ;    Sets !P.POSITION.
  42. ;
  43. ; RESTRICTIONS:
  44. ;    None.
  45. ;
  46. ; PROCEDURE:
  47. ;    Straightforward.  !P.POSITION is directly set.
  48. ;
  49. ; MODIFICATION HISTORY:
  50. ;    DMS, June, 1989.
  51. ;
  52. ;    Modified, April, 1991 to restore defaults if called with no
  53. ;             parameters.
  54. ;-
  55. on_error,2              ;Return to caller if an error occurs
  56. n = n_params()
  57. if n_elements(xmin) eq 0 then xmin = 0.
  58. if n_elements(xmax) eq 0 then xmax = 0.
  59.  
  60. IF xmin eq xmax then begin    ;Set defaults?
  61.     !x.margin = [10,3]
  62.     !y.margin = [4,2]
  63.     !p.position = 0
  64.     return
  65.     ENDIF
  66.  
  67. IF n le 2 then begin    ;Calculate Ymin and Ymax
  68.     y = !x.margin * !d.x_ch_size / !d.x_size ;Margins in normalized coords
  69.     ymin = y(0)
  70.     ymax = 1.0 - y(1)
  71.     ENDIF
  72. !p.position = [ xmin, ymin, xmax, ymax] ;Set it
  73. end
  74.